home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / multimedia / diskmags / nocover17 / texteb / tt-1x1.mp.pp / tt-1x1.mp (.txt)
Magnetic Pages Article  |  1995-09-02  |  3KB  |  64 lines
  1. MPARTICLE
  2.  Hi, Leute  !!
  3.  =-=-=-=-=-=-=
  4.  1 Da ich mal wieder meine ein mal eins F
  5. higkeiten4 verbessern wollte (bzw. das 1x1 lernen wollte :-( )2 schrieb ich ein kleines und einfaches Programm in' AmigaBASIC (sollte noch bekannt sein).6 Also, wer ebenfalls einen Auffrischungskurs ben
  6. tigt,5 kann's ja mal probieren (bei mir hat's jedenfalls in+ sehr kurzer Zeit schon Wirkung gezeigt !).
  7. & REM Written 1995 by Stefan Schreinert# G1=10    ' 1. Obergrenze festlegen# G2=10    ' 2. Obergrenze festlegen
  8.  RANDOMIZE TIMER:Ende=1
  9.  Falsch=0:Richtig=0:Zeit=0
  10.  WHILE Ende
  11.   CLS
  12.   A=CINT(G1*RND(2))
  13.   B=CINT(G2*RND(3))
  14.   LOCATE 10,15: PRINT A;" *";B;
  15.   Zeit1=TIMER
  16.   INPUT " = ",C
  17.   Zeit2=TIMER
  18.   LOCATE 12,15
  19.   IF A*B=C THEN
  20.    PRINT "Richtig"
  21.    Richtig=Richtig+1
  22.   ELSE
  23.    COLOR 2: PRINT "Falsch"*   LOCATE 13,15: PRINT "Richtig ist :";A*B
  24.    COLOR 1
  25.    Falsch=Falsch+1
  26.   END IF
  27.    LOCATE 6,1
  28.    PRINT "Ben
  29. tigte Zeit :";+   PRINT CINT(100*(Zeit2-Zeit1))/100;"sek."
  30.    Zeit=Zeit+Zeit2-Zeit1
  31.    A$=INKEY$
  32.    WHILE A$="":A$=INKEY$:WEND$ REM Wenn 'Esc' gedrueckt => Beenden
  33.    IF A$=CHR$(27) THEN Ende=0
  34.  WEND
  35.  CLS: LOCATE 10,15, PRINT Richtig;"Richtige  ";Falsch;"Falsche"2 LOCATE 12,15: PRINT "Ben
  36. tigte Zeit (insgesamt)";  PRINT CINT(100*Zeit)/100;"sek."
  37.  ! Tips und Hinweise zum Programm :! --------------------------------
  38.  1 Durch ver
  39. ndern der Variabeln "G1" und "G2" l
  40. t5 sich die obere Abfragegrenze festlegen, z.B. ist die3 h
  41. chste Zahl bei ("G1" oder "G2")=10 ebenfalls 10.
  42.  4 Die Messung der Zeit wird vor und nach dem Eingabe-0 befehl (INPUT) gemessen und sp
  43. ter von einander
  44.  abgezogen.5 Die Zeitangabe eignet sich eigentlich nur dann, wenn3 man bei einer Aufgabe l
  45. nger nachdenken mu
  46. , sonst0 empfiehlt sich der Blick auf die Anzeige nicht.
  47. 2 Man kann durch Ver
  48. ndern von 3 Zeilen auch leicht0 die anderen Rechenarten (Addition, Subtraktion,  Division u.a.) abfragen lassen..  1. Ausgabe in Zeile 10 von "*" in "+" 
  49. ndern4  2. IF-Bedingung in Zeile 15 von "A*B=C" in "A+B=C"
  50.      
  51. ndern2  3. Ausgabe in Zeile 20 von "A*B" in "A+B" 
  52. ndern
  53. 2 Zeilen f
  54. r die Zeitangabe, die weggelassen werden     k
  55. nnen :4  4,5 (NUR ":Zeit=0" !!), 11, 13, 24,25,26,27, 35,36
  56.  13.06.1995 Stefan Schreinert*            (K
  57. tzer Weg 4, 89312 G
  58. nzburg)
  59. 1 x 1 Seite 1 von 5
  60. 1 x 1 Seite 2 von 5
  61. 1 x 1 Seite 3 von 5
  62. 1 x 1 Seite 4 von 5
  63. 1 x 1 Seite 5 von 5
  64.